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1. ABSTRACT 

The ISZ Test checks the operation of the ISZ instruction of the PDP-9, Various checks of the 

ISZ instruction are made, including ISZ of 777777 to o on all memory locations, and ISZ of random 

o o 

numbers stored in random memory locations from random memory locations. Errors are indicated to the 
operator via the teleprinter. 

2. REQUIREMENTS 

2.1 Equipment 

Standard PDP-9 computer 

2.2 Storage 

The program uses all of 8K memory for the program or as a test area. When the program resides 
in upper memory, it occupies from locations 16440 to 17710. The random ISZ portion of the test tests 
all locations below 16440. 

2.3 Preliminary Programs 

Instruction Test - Parts 1 and 2 (MAINDEC-9A-D01 A-D and MAINDEC-9A-D02A-D) 

3. LOADING PROCEDURE 



3.1 Method 



a. Put HRI tape of program in reader. 

b. Set ADDRESS SWITCHES to 00100. 

c. Depress and release READ-IN key. 

STARTING PROCEDURE 



4.1 Control Switch Settings 

The following is a table of ACCUMULATOR SWITCH settings and their action on the program: 

AC Switch Set As Action 

1 Halt on error 

Don't halt on error 

1 1 Don't print errors 
Print errors 



AC Switch 


Set As 


2 


1 







3 


1 







4 


1 







5 


1 







6 


1 







7 


1 







8 


1 
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Action 

Ring bell on error 

Ring bell after N passes 

Loop on current conditions 

Don't loop on current conditions 

Loop on current test 

Don't loop on current test 

Save initial error conditions of random ISZ 

Don't save initial error conditions of random ISZ 

Vary location of ISZ instruction 

Don't vary location of ISZ instruction 

Vary location of number incremented 

Don't vary location of number incremented 

Vary number incremented 

Don't vary number incremented 

(Switches 6, 7, 8 operate in conjunction with 5; 3 supercedes 4) 

N is an arbitrary number (initially 20000- for random ISZ's) which is controlled by the 
LAW-N instruction in location 17052 and may be changed at the operator's discretion. 

4.2 Starting Addresses 

The starting address of the program is 00100. The restart addresses are 00100, 00144, 17000, 
17052, and 17652 (see section 5.3). 

4.3 Program and/or Operator Action 

a. Set ADDRESS SWITCHES to 00100. 

b. Set ACCUMULATOR SWITCHES to desired positions (see section 4.1). Normal 
setting is 510000. 

c. Depress I/O RESET. 

d. Depress START. 

5. OPERATING PROCEDURE 

5.1 Operational Switch Settings 

See section 4.1 
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5.2 Subroutine Abstracts 
None 

5.3 Program and/or Operator Action 

a. To put the program in the 'scope mode, the ACCUMULATOR SWITCHES should be 
set to 270000, (don't halt, don't print, bell after N passes, loop on current number (location), loop 
on current test, save error conditions). 

b. To start program initial lys so that upper memory may be checked, start at location 
00100. 

c. To start program initially so that lower memory may be checked without checking 
upper memory, start at location 00144. 

d. To restart program to check upper memory after program has moved, restart at 17652. 

e. To restart program to check lower memory after program has moved, restart at 17000. 

f. To restart program to check random ISZ's after program has moved, restart at 17052. 

6. ERRORS 

Unless AC switch 1 is a 1, all errors will be printed on the Teletype. 

6.1 Error Halts and Description 

Location Description 

00342 ISZ on upper memory did not skip 

00404 Location in upper memory did not ISZ to 

17466 ISZ on lower memory did not skip 

17530 Location in lower memory did not ISZ to 

17601 Random ISZ add failure 

6.2 Error Recovery 

6.2.1 To Repeat Failure - If AC switch is a 1 , the computer will halt on an error. To recover 
and repeat the failure, reset AC switches to 5 as necessary (see section 4.1) and then depress 
CONTINUE key. 

6.2.2 Recovery with Random ISZ - The random ISZ portion of this test has special recovery features. 
AC switch 3, as with the other tests, may be used to put the program in the 'scope mode (loop on cur- 
rent conditions). If, however, it is desired to save the conditions of an error and vary the parameters 
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which make up the current conditions, AC switches 5 to 8 may be used. If switch 5 is a 1 , and an 
error occurs, the exact conditions which caused the error will be saved (location of ISZ instruction, 
location of number ISZ'd, number ISZ'd), By setting switches 6, 7, and/or 8 to a 1, any one or all 
of these conditions may be changed. Returning 6, 7, and/or 8 to causes the original error condition 
for that switch to be used again. Thus it is possible to determine which condition(s) is causing the 
error. Switches 5-8 have no effect, if an error does not occur. 

6.2.3 Test Special Conditions with Random ISZ - To test special conditions in the random ISZ test, 
store the location of the ISZ instruction in 171 12 (SAVE1) and 171 15 (RAND1), store the location of 
the number ISZ'd in 17113 (SAVE2) and 17116 (RAND2) and store the number to be ISZ'd in 17114 
(SAVE3) and 17117 (RAND3). Restart the program at location 17067 (PROCED) with AC switches 3 
and 5 a 1 . 

6.2.4 Test Particular Memory Location - To test a particular memory location in the ISZ to tests, 
store the number of the location to be tested in 00152 (PNTR2) if program is in low memory and an 
upper memory location is to be tested (if program is not in low memory, move it there by restarting 
computer at 17652 (MOVEDN)), or in 17046 (PNTR1) if program is in high memory and a lower memory 
location is to be tested (if program is not in high memory, move it there by restarting computer at 00144 
(MOVEUP)). Whether the program is in lower or upper memory can be determined by the program 
counter while the program is running (it may be easier to stop the computer before looking at the PC). 
If the PC contains a number above 10000, the program is in upper memory and conversely. Restart 
computer at 00106 (ISZHI+6) or 17005 (ISZLOW+5) (as appropriate) with AC switches 3 and 4 a 1 . 



6.3 Error Switch Hierarchy 
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1 < ON ERROR > 


1' 




RING BELL 


(SWITCH 2) 

^ 








(SWITCH O) 



YES 



PRINT ERRORS 



STOP 






/^RETURN TO 
/ MAIN PROGRAM. 
I CHECK FOR REPEAT 
\ OF ERROR 

\CONOITIONS. 



6.4 Error Typeout Examples 



6.4.1 Increment Memory from -1 to 



6.4.1.1 No Skip 



ISZ DID NOT SKIP, LOG 001234 
The above example shows that the number in location 1234 (- 



when incremented, did 



not skip. 
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6.4.1.2 Bad Add 

ISZ ADD 

NUMBER AT ORIGINAL BAD 
001234 7 7 7 7 7 7 777777 

The above example shows that the number in location 1234 (—1) was not incremented. 

6.4.2 Random ISZ Test 

ISZ ADD 

NUMBER AT ORIGINAL BAD ISZ AT 

001234 765435 765434 005763 

The above example shows that a number in location 1234 (the number was 765435) was 
ISZ'd improperly producing a result of 765434 (carry from bit 17 to bit 16 was lost). The ISZ instruction 
was in location 5763. 

7. MISCELLANEOUS 

7. 1 Execution Time 

Not applicable 

8. PROGRAM DESCRIPTION 

There are three basic portions to the program, a portion which tests upper memory to be sure 
that all memory locations can be incremented to (ISZHI), a portion which tests lower memory to be 
sure that all memory locations can be incremented to (ISZLOW), and a portion which assures that 
random numbers stored in random memory locations can be ISZ'd from random memory location properly 
(RANISZ). 

8.1 ISZHI 



a. The first function performed is that of initializing the bell counter and setting up 
for header printing should an error occur. 

b. Then a pointer is set to 10000 to allow the program to access the first location to 
be tested. 

c. The number 777777~ is stored in the memory location indicated in the pointer and 
it is then incremented to 0. Checks are made to assure that the computer skipped and 
the number went to 0. 
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d. A check is then made to see if the memory location should be tested again (switch 
3). If so/ c is repeated immediately. If not, then the address is incremented and then 
c is repeated. 

e. Step d is repeated until location \7777~ has been tested, at which time a check 

is made to determine if the sequence should be repeated (switch 4). If so, the program 
goes back to b. If not, the program is moved to upper memory and then control is trans- 
ferred to the ISZLOW portion of the program. 

8.2 ISZLOW 

This portion is essentially the same as ISZHI except that locations o to 7777 ' are tested and 

o 8 

the program is not moved when ISZLOW is completed. 

9.3 RANISZ 

a. First the initialization of the loop counter and the header is set up. 

b. Then three random numbers are generated for the location of the ISZ, location of 
the number, and the number respectively. 

c. The number is stored in the appropriate memory location and an ISZ instruction is 
formed for that location and stored in its proper place. 

d. The ISZ instruction is then executed and the result is checked with a synthesized 
ISZ for proper addition. If no errors occurred, a check is made to see if the test should 
be repeated (switch 3). If not then the program returns to step b. If it should be re- 
peated, the program returns to step c. 

e. If an error occurred, the conditions which caused it are indicated to the operator 
(unless they have been suppressed by AC switch 1) and then a check is made to see if 
the conditions should be saved (switch 5). If not, the program proceeds on as if no 
error occurred. 

f . If the error conditions should be saved, the program then determines which of the 
three variables should be changed, and repeats the test for the new variables and/or 
the old ones. The operator can always return to original error conditions by setting AC 
switches 6, 7, and 8 to 0. By setting AC switch 5 to 0, the operator can continue on 
with testing independent of the error, if he so desires. 



i S * - o 



'AGE 
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/ I S2 TEST 



I ' 10 



1 

00101 
00102 
00103 
00104 
00105 
010 6 
010 7 
0110 
00111 
00112 
01- 113 
114 
0115 
0116 
0117 
00120 
00121 
00122 
012 3 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00 135 
tf0136 
00137 
01140 
141 
014 2 
00143 
14 4 
014 5 
014 6 
00147 
00150 
00151 
015 2 
00153 
00154 
00155 
0156 



7 6 
4 0151 
2 4 7 
4 3 5 5 
200156 
4 015 2 
7 5 4 01 
6 015 2 
4601 52 
100321 
220152 
740200 
100344 
750004 

5 015 4 
740200 

6 010 6 

7 5 4 
7 4 2010 
7411 00 
6001 32 
200151 
340153 
040151 
741200 
100216 
200152 
540157 
600140 
340153 
040152 
600106 
750004 
500155 
750200 
600104 
776527 
100160 
000100 
016440 
617000 

000000 

000000 
000001 
040000 
020000 
010000 



/ROUT INE 

/ 

ISz?HI 



.TITLE IS2-9 

.FULL 
. LOC 100 
TO IS? UPPER MEMORY FROM 



MOVEUP 



CNTR2 

PNTR2 

0NE2 

MASK12 

MASK22 

STRT 



LAW 

DAG CNTR2 

LAC C0NST3 

OAC ERR0R4+11 

LAC STRT 

OAC PNTR2 

CLAICLL !CMA 

DAC» *PrgTR2 

ISZ* PNTR2 

JMS ERR0R2 

LAC* PNTR2 

SEA 

JMS ERR0R4 

LAS 

AND MASK12 

SZA 

JMP ISZ-HI+6 

LAS 

RTL 

SPA 

JMP .+6 

LAC CNTR2 

TAD ONE2 

OAC CNTR2 

SNA 

JMS 

LAC 

SAD 

JMP 

TAD 

DAC 

JMP 

LAS 

AND 

SZA 

JMP 

LAW 



BELL2 

PNTR2 

UPLIM2 

.+4 

ONE2 

PNTR2 

IS2HI+6 



MASK22 

CLA 

ISZHI+4 

-A 

JMS M0VE2 
ISZHI 
B 

JMP ISZLOW 


1 

40000 
2( 



/SET 
/SET 



•1 TO (OCCUPY LOW MEMORY) 



LOOP COUNTER 

UP TO PRINT HEADER 



/SET POINTER TO 10000 

/SET AC TO -1 

/STORE IN MEMORY 

/INDEX LOCATION TO 

/ERROR, COMPUTER DID NOT SKIP 

/GET C(MEMORY) 

/IS IT 0? 

/NO, ERROR 



/LOOP 
/YES 



ON CURRENT NUMBER? 



/RING 
/NO 



BELL? 



/NO, 

/is : 

/YES 
/NO, 



GET C (PNTR2) 
T 17777 

INCREMENT FOR NEXT 



/LOCATION 



/LOOP ON THIS TEST? 

/YES 

/NO, GET READY TO 

/MOVE PROGRAM 

/ORIGIN ADORESS -LOWEST ADDRESS -LOW 

/DESTINATION ADDRESS -LOWEST ADDRESS -HIGH 

/GO TO PROGRAM IN UPPER MEMORY 







10000 
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SZ-9 PAGE 2 

00157 017777 



UPLIM2 17777 



ISZ-9 PAGE 


3 


1 1 1 1 




00160 


000000 


00161 


040213 


00162 


220160 


00163 


040214 


00164 


200160 


00165 


340153 


00166 


040160 


00167 


220160 


00170 


040215 


00171 


220214 


00172 


060215 


00173 


200214 


00174 


340153 


00175 


040214 


00176 


200215 


00177 


340153 


00200 


040215 


00201 


200213 


00202 


340153 


00203 


040213 


00204 


740200 


00205 


600171 


00206 


200160 


00207 


340153 


00210 


040160 


00211 


754000 


00212 


620160 


00213 


000000 


00214 


000000 


00215 


000000 


00216 


000000 


00217 


760207 


00220 


100431 


00221 


400100 


00222 


040151 


00223 


620216 


00224 


000000 


00225 


760212 


00226 


100431 


00227 


760215 


00230 


100431 


00231 


620224 
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/SUBROUTINE TO MOVE THE PROGRAM (OCCUPY LOW MEMORY) 



M0VE2 



L00P2 



TALLY2 

P0INT3 

P0INT4 

/ 

/ROUTINE 

BELL2 



/ 

/ROUTINE 
CRLF2 



DAC TALLY2 
LAC* M0VE2 
DAC P0INT3 
LAC M0VE2 
TAD 0NE2 
DAC M0VE2 
LAC* M0VE2 
DAC P0INT4 
LAC* P0INT3 
DAC* P0INT4 
LAC P0INT3 
0NE2 
P0INT3 
P0INT4 
0NE2 
P0INT4 
TALLY2 
0NE2 
TALLY2 



TAD 
DAC 
LAC 
TAD 
DAC 
LAC 
TAD 
DAC 
SZA 
JMP 
LAC 
TAD 
DAC 

cla: 

JMP* 






TO RING BELL -LOW MEMORY 



L00P2 
M0VE2 
0NE2 
M0VE2 
CLL 
M0VE2 



LAW 
JMS 
XCT 
DAC 
JMP* 



207 
TYPE2 
ISZHI 
CNTR2 
BELL2 



TO ISSUE CR-LF LOW MEMORY 


LAW 212 
JMS TYPE2 
LAW 215 
JMS TYPE2 
JMP* CRLF2 



IS2-9 



PAGE 
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tttt 



00232 


000000 


00233 


040255 


00234 


777772 


00235 


040213 


00236 


200255 


00237 


740010 


00240 


740010 


00241 


742010 


00242 


040255 


00243 


500256 


00244 


240257 


00245 


100431 


00246 


200213 


00247 


340153 


00250 


040213 


00251 


741200 


00252 


620232 


00253 


200255 


00254 


600240 


00255 


000000 


00256 


000007 


00257 


000260 



/TYPE OUT 
TYPOLO 



00260 


000261 


00261 


311323 


00262 


332240 


00263 


304311 


00264 


304240 


00265 


316317 


00266 


324240 


00267 


323313 


00270 


311320 


00271 


254240 


00272 


314317 


00273 


303240 


00274 


377000 



TEMP2 

SEVEN2 

ASKII2 

/ 

/ 

/ERROR 

/ 

MESS12 



THE CONTENTS OF THE AC IN OCTAL (LOW) 



DAC 

LAW 

DAC 

LAC 

RAL 

RAL 

RTL 

DAC 

AND 

XOR 

JMS 

LAC 

TAD 

DAC 

SNA 

JMP» TYPOLO 

LAC TEMP2 

JMP .-14 



7 

260 



MESSAGES (LOW MEMORY) 



TEMP2 
-6 

TALLY2 

TEMP2 



TEMP2 

SEVEN2 

ASKII2 

TYPE2 

TALLY2 

0NE2 

TALLY2 



.+1 

311323 

332240 

304311 

304240 

316317 

324240 

323313 

311320 

254240 

314317 

303240 

377000 



/I,S 

/Z.SP 

/D# I 

/D.SP 

/N,0 

/T.SP 

/S,K 

/I.P 

/,,SP 

/L,0 

/C.SP 

/RO 



IS2-9 



PAGE 
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00275 


000276 


00276 


215212 


00277 


311323 


00300 


332240 


00301 


301304 


00302 


304215 


00303 


212212 


00304 


316325 


00305 


315302 


00306 


305322 


00307 


240301 


00310 


324240 


00311 


317322 


00312 


311307 


00313 


311316 


00314 


301314 


00315 


240240 


00316 


302301 


00317 


304240 


00320 


377000 


00321 


000000 


00322 


750004 


00323 


742010 


00324 


741100 


00325 


100216 


00326 


750004 


00327 


740010 


00330 


741100 


00331 


600340 


00332 


100224 


00333 


200260 


00334 


100410 


00335 


200152 


00336 


100232 


00337 


100224 


00340 


750004 


00341 


741100 


00342 


740040 


00343 


620321 



MESS22 .+1 

215212 /CR,LF 

311323 /I,S 

332240 /2.SP 

301304 /A,D 

304215 /D.CR 

212212 /LF,LF 

316325 /N,U 

315302 /M,B 

305322 /E.R 

240301 /SP,A 

324240 /T,SP 

317322 /0,R 

311307 /I,G 

311316 /I,N 

301314 /A,L 

240240 /SP,SP 

302301 /8,A 

304240 /O.SP 

377000 /RO, 



/ 

/ERROR REPORTING 

ERR0R2 

LAS 

RTL 

SPA 

JMS BELL2 

LAS 

RAL 

SPA 

JMP .+7 

JMS CRLF2 

LAC MESS12 

JMS TMESS2 

LAC PNTR2 

JMS TYPOLO 

JMS CRLF2 

LAS 

SPA 

XX 

JMP* ERROR2 



SUBROUTINE 2 (LOW MEMORY) 



/BELL ON ERROR? 



/PRINT ERRORS? 

/NO 

/YES, CRLF 



/TYPE OUT "IS2 DID NOT SKIP, LQC" 



/TYPE OUT 
/CR-LF 



NUMBER OF LOCATION 



/HALT 

/YES 

/EXIT 



ON ERROR? 



S2-9 



PAGE 



1 1 1 1 



00344 

00345 

00346 

00347 

00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 

00360 

00361 

00362 

00363 

00364 

00365 

00366 

00367 

00370 

00371 

00372 

00373 

00374 

00375 

00376 

00377 

00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 



000000 

750004 

742010 

741100 

100216 

750004 

740010 

741100 

600402 

200275 

100410 

100224 

200406 

040355 

200152 

100232 

760240 

100431 

100431 

100431 

100431 

100431 

750001 

100232 

760240 

100431 

100431 

220152 

100232 

100224 

750004 

741100 

740040 

620344 

600362 

200275 
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/ERROR MESSAGE REPORTING SUBROUTINE 4 (LOW MEMORY) 



ERROR4 



C0NST2 
C0NST3 





LAS 

RTL 

SPA 

JMS BELL2 

LAS 

RAL 

SPA 

JMP .+26 

LAC MESS22 

JMS TMESS2 

JMS CRLF2 

LAC C0NST2 

DAC .-4 

LAC PNTR2 

JMS TYPOLO 

LAW 240 

JMS TYPE2 

JMS TYPE2 

JMS TYPE2 

JMS TYPE2 

JMS TYPE2 

CLAICMA 

JMS TYPOLO 

LAW 240 

JMS TYPE2 

JMS TYPE2 

LAC» PNTR2 

JMS TYPOLO 

JMS CRLF2 

LAS 

SPA 

XX 

JMP» ERR0R4 

JMP ERR0R4+16 

LAC MESS22 



/BELL 
/YES 



ON ERROR? 



/PRINT ERRORS? 
/NO 

/TYPE OUT HEADER 



/TYPE OUT LOCATION OF NUMBER 
/TYPE 5 SPACES 



/TYPE ORIGINAL NUMBER 



/TYPE BAD RESULT 
/CR-LF 

/HALT ON ERROR? 

/YES 

/EXIT 
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lSi-9 PAGE 


7 






t t t t 




/MESRAGE 


TYPEOUT SUBROUTINE 


01*41.0 


00 00 


TMESS2 





(" 411 


040214 




DAC P0INT3 


v 4 1 2 


220214 




LAC* P0INT3 


413 


740020 




RAR 


4 1 4 


7 4 2 20 




RTR 


415 


7 4 2 20 




RTR 


00416 


742020 




RTR 


00 417 


742020 




RTR 


00420 


10 4 31 




JMS TYPE2 


00421 


540437 




SAO RUB0T2 


00422 


620410 




JMP* TMESS2 


00423 


220214 




LAC* P0INT3 


00424 


100431 




JMS TYPE2 


00425 


4 4 0214 




ISZ P0INT3 


00426 


540437 




SAD RUB0T2 


00427 


620410 




JMP* TMESS2 


00430 


600412 




JMP TMESS2+2 


00431 


00 00 


TYPE2 





00 4 32 


500437 




AND RUB0T2 


00433 


700406 




TLS 


00434 


700401 




TSF 


00435 


600434 




JMP .-1 


00436 


620431 




JMP* TYPE2 


43 7 


000377 


RUB0T2 


377 



(LOW) 
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IS2-9 PAGE 8 

tttt 



17000 

17000 

17001 

17002 

17003 

17004 

17005 

17006 

17007 

17010 

17011 

17012 

17013 

17014 

17015 

17016 

17017 

17020 

17021 

17022 

17023 

17024 

17025 

17026 

17027 

17030 

17031 

17032 

17033 

17034 

17035 

17036 

17037 

17040 

17041 

17042 

17043 

17044 

17045 

17046 

17047 

17050 

17051 



760000 

057045 

217533 

057501 

157046 

7 5 4 01 

077046 

477046 

117445 

237046 

740200 

117470 

750004 

517050 

740200 

617005 

750004 

742010 

741100 

617031 

217045 

357047 

057045 

741200 

117276 

217046 

557044 

617037 

357047 

057046 

617005 

750004 

517051 

750200 

617004 

617052 

007777 

000000 

000000 

000001 

040000 

020000 





.LOC 17000 


/ROUTINE 


TO IS? LOWER M 


IS2LOW 


LAW 




DAC CNTRl 




LAC 00NST5 




DAC FRR0R3+11 




Q2M PNTRl 




CLA !CLL :CMA 




DAC» PNTR1 




ISZ» PMTR1 




JMS ERROR1 




LAC* PMTR1 




S2A 




JMS ERR0R3 




LAS 




AND MASK11 




S2A 




JMP ISZLOW+5 




LAS 




RTL 




SPA 




JMP .+6 




LAC CNTRl 




TAD ONF1 




DAC CNTRl 




SNA 




JMS BELLI 




LAC PNTR1 




SAO UPLIM1 




JMP ,+4 




TAD ONE1 




DAC PNTRl 




JMP IS2LOW+5 




LAS 




AND MASK21 




SZA .'CLA 




JMP IS?LOW+4 




JMP RANIS? 


UPLIM1 


7777 


CNTRl 





PNTR1 





ONE1 


1 


MASK11 


40000 


MASK21 


20000 



/ZERO POINTER 
/SFT AC TO -1 
/STORE -1 IN MEMORY 
/INDEX LOCATION TO 
/GO TO ERROR SUBROUTINE 
/GET CONTENTS OF MEMORY 
/IS IT 0? 
/NO, ERROR 



/LOOP ON CURRENT NUMBER? 

/YES 

/GET C (ACS) 

/MOVp 2 LEFT 

/RING BELL? 

/NO 



/IS CNTR 0? 
/YES, RING BELL 
/NO, GET C (PNTR) 
/IS IT 7777 
/YES 

/NO, INCREMENT FOR NEXT LOCATION 



/LOOP ON THIS TEST 

/YES 

/NO 



iS^-9 



PAGE 
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/RANDOM IS2 TEST (OCCUPIES HIGH MEMORY) 



17052 
17053 
17054 
17055 
17056 
17057 
17060 
17061 
17062 
17063 
17064 
17065 
17066 
17067 
17070 
17071 
17072 
17073 
17074 
17075 
17076 
17077 
17100 
17101 
17102 
17103 
17104 
17105 
17106 
17107 
17110 
17111 
17112 
17113 
17114 
17115 
17116 
17117 
17120 
17121 
17122 



760000 
057045 
217533 
057545 
11731? 
05711? 
117323 
057113 
117334 
617060 
117224 
057117 
057114 
117123 
117534 
750004 
517050 
740200 
617067 
750004 
742010 
741100 
617111 
217045 
357047 
057045 
740200 
617111 
117276 
417052 
057045 
617056 
000000 

000000 
000000 

000000 

000000 
000000 

761340 
440000 
017777 



RANIS2 



PROCED 



SAVE1 

SAVE? 

SAVES 

RANOl 

RAND2 

RAND3 

UPLIM3 

IS2CON 

CONST1 



LAW 
OAC 
LAC 
OAC 
JMS 
OAC 



CNTR1 

COMST5 

ERROR5+11 

GETl 

SAVEl 

JMS GET2 

OAC SAVE2 

JMS COMPAR 

JMP .-3 

JMS GEN3 

DAC RAND3 

OAC SAVE3 

JMS I SZTST 

JMS ERROR5 

LAS 

AND MASK11 

S2A 

JMP PROCED 

LAS 

RTL 

SPA 

JMP .+11 

LAC CNTR1 

TAD ONE1 

DAC CNTR1 

S2A 

JMP .+4 

JMS BELLI 

XCT RANISZ 

OAC CNTR1 

JMP RANISZ+4 













-B 

IS2 

17777 



/SET UP TO COUNT LOOPS 



/GET LOCATION OF IS2 

/GET LOCATION TO BE ISZ'O 

/COMPARE RAND1 AND RAND2 

/TO RE SURE THEY ARE DIFFERENT 

/GET NUMBER TO BE ISZ'D 



/PERFORM AND CHECK THE IS2 

/ERROR, RETURN TO THIS INSTRUCTION 

/NO ERROR, RETURN HERE 



/LOOP 
/YES 



ON CURRENT NUMBERS 



/RING BELL? 

/NO 

/YES 



/MINUS LOWER LIMIT OF UPPER PROGRAM 



I Sj?-9 
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17123 
17124 
17125 
17126 
17127 
17130 
17131 
17132 
17133 
17134 
17135 
17136 
17137 
17140 
17141 
17142 
17143 



17144 
17145 
17146 
17147 
17150 
17151 
17152 
17153 
17154 
17155 
17156 
17157 
17160 
17161 
17162 
17163 
17164 
17165 
17166 
17167 
17170 
17171 
17172 
17173 
17174 
17175 
17176 

17177 
17200 
17201 



000000 
217117 
077116 
217121 
357116 
077115 
437115 
740000 
217117 
357047 
577116 
741000 
637123 
217123 
357047 
057123 
637123 



000000 
057177 
2 3 714 4 
057200 
217144 
357047 
057144 
237144 
057201 
237200 
077201 
217200 
357047 
057200 
217201 
357047 
057201 
217177 
357047 
057177 
740200 
617155 
217144 
357047 
057144 
754000 
637144 

00 

000000 
000000 



/ISZ TEST SETUP AND EXECUTION SUBROUTINE 
ISZTST 

LAC RAN03 

DAC* RAND2 

LAC ISZCON 

TAD RAND2 

OAC* RAND1 

XCT* RAND1 

NOP 

LAC RAND3 

TAD ONE1 

SAD* RAND2 

SKP 

JMP* ISZTST 

LAC ISZTST 

TAD ONE1 

DAC ISZTST 

JMP* ISZTST 
/ 
/SUBROUTINE TO MOVE THE PROGRAM (OCCUPY HIGH MEMORY) 



/STORE NUMBER TO BE ISZ'D 

/FORM ISZ 

/INSTRUCTION, AND 

/STORE IT, THEN 

/EXECUTE IT 

/FILLER 

/SYNTHESIZE THE 

/ISZ AND CHECK 

/TO SEE THAT THE 

/ANSWERS AGREE 

/THEY DON'T, EXIT 

/INCREMENT ISZTST 

/THE HARD WAY 



MOVE1 



LOOPl 





DAC TALLY1 
LAC* MOVE1 
DAC POINT1 
LAC MOVE1 
TAD ONE1 
DAC MOVE1 
LAC* MOVE1 
DAC P0INT2 
LAC* POINTl 
DAC* P0INT2 
LAC POINTl 
ONE1 
POINTl 
P0INT2 
ONEl 
P0INT2 
TALLY1 
ONEl 
TALLY1 



/ 

TALLY1 
POINTl 
P0INT2 



TAD 

DAC 

LAC 

TAD 

DAC 

LAC 

TAD 

DAC 

SZA 

JMP 

LAC 

TAD 

DAC 

CLA : 

JMP* 





LOOPl 
MOVE1 
ONEl 
MOVE1 
CLL 
MOVE1 



ISZ-9 
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/RANDOM 


NUMBER GENERATORS 


HIGH MEMORY 


17202 


000000 


GEN1 







17203 


217211 




LAC Rl 




17204 


744010 




RAUCLL 




17205 


741400 




SZL 




17206 


357212 




TAD Rl+1 




17207 


057211 




DAC Rl 




17210 


637202 




JMP* GEN1 




17211 


000037 


Rl 


000037 




17212 


000003 




3 




17213 


000000 


GEN2 







17214 


217222 




LAC R2 




17215 


744010 




RAL!CLL 




17216 


741400 




SZL 




17217 


357223 




TAD R2+1 




17220 


05722? 




DAC R2 




17221 


637213 




JMP* GEN2 




17222 


000001 


R2 


000001 




17223 


000003 




3 




17224 


000000 


GEN3 







17225 


217252 




LAC R3 




17226 


744010 




RAL.'CLL 




17227 


741400 




SZL 




17230 


357253 




TAD R3+1 




17231 


057252 




DAC R3 




17232 


057254 




DAC R3+2 




17233 


577255 




SAD* R3+3 




17234 


741000 




SKP 




17235 


637224 




JMP* GEN3 




17236 


217255 




LAC R3+3 




17237 


357047 




TAD ONE1 




17240 


057255 




DAC R3+3 




17241 


237255 




LAC* R3+3 




17242 


057252 




DAC R3 




17243 


741200 




SNA 




17244 


617247 




JMP .+3 




17245 


217254 




LAC R3+2 




17246 


637224 




JMP* GEN3 




17247 


777256 




LAW R3+4 




17250 


057255 




DAC R3+3 




17251 


617245 




JMP .-4 





;i?-9 
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17252 
17 2 5 3 
17254 
17255 
17256 
17257 
17260 
17261 
17262 
17263 
17264 
17265 
17266 
17267 
17270 
17271 
17272 
17273 
17274 
17275 



17276 
17277 
17300 
17301 
17302 
17303 



17304 
17305 
17306 
17307 
17310 
17311 



000000 
000003 
000000 
017256 
000000 
777775 
056427 
000175 
000171 
000137 
000065 
000037 
000031 
000023 
000021 
000015 
000013 
000005 
000001 
000000 



000000 

760207 
117702 
417000 
057045 
637276 



000000 
760215 
117702 
760212 
117702 
637304 



R3 000000 

3 



R3 + 4 

000000 

777775 

056427 

000175 

000171 

000137 

000065 

000037 

000031 

000023 

000021 

000015 

000013 

000005 

000001 

000000 
/ 

/ROUTINE TO RING BELL HIGH MEMORY 

/ 

BELLI 

LAW 207 

JMS TYPE1 

XCT ISZLOW 

DAC CNTR1 

JMP* BELLI 
/ 
/ 

/ROUTINE TO ISSUE CR-LF HIGH MEMORY 
/ 



CRLF1 



LAW 215 
JMS TYPE1 
LAW 212 
JMS TYPE1 
JMP» CRLF1 



lSi-9 
f 1 1 1 
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17312 
17313 
17314 
17315 
17316 
17317 
17320 
17321 
17322 
17323 
17324 
17325 
17326 
17327 
17330 
17331 
17332 
17333 



17334 
17335 
17336 
17337 
17340 
17341 
17342 
17343 
17344 
17345 
17346 



000000 
117202 
517122 
057115 
357120 
740100 
617313 
217115 
637312 
000000 
117213 
517122 
057116 
357120 
740100 
617324 
217116 
637323 



217115 
740001 
357047 
357116 
741200 
637334 
217334 
357047 
057334 
637334 
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/GET RANDOM NUMBER SUBROUTINES 



GET1 



GET2 



/ 

/COMPARE 
COMPAR 





JMS 

AND 

DAC 

TAD 

SMA 

JMP 

LAC 

JMP# 



JMS 

AND 

DAC 

TAD 

SMA 

JMP 

LAC 

JMP* 



GEN1 
C0NST1 
R A M 1 
UPLIM3 

. -5 
RAND1 
GETl 

GEN2 
C0NST1 
RAND2 
UPLIM3 

.-5 
RAND2 
GET2 



/GET RANDOM 

/MASK 

/STORE 

/COMPARE TO SEE 

/IF IT IS IN THE PROGRAM 

/IT IS, GENERATE ANOTHER 

/NO, IT ISN'T, EXIT 

/WITH NUMBER IN AC 



RAND1 


LAC RAND1 
CMA 

TAD 0NE1 
TAD RAND2 
SNA 

JMP* COMPAR 
LAC COMPAR 
TAD 0NE1 
DAC COMPAR 
JMP# COMPAR 



AND RAND2 SUBROUTINE 
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14 






tttt 












/TYPE OUT 


THE CONTENTS 


17347 


000000 


TYPOHI 





17350 


057372 




DAC TEMPI 


17351 


77777? 




LAW -6 


17352 


057177 




OAC TALLY1 


17353 


217372 




LAC TEMPI 


17354 


744010 




RAL!CLL 


17355 


740010 




RAL 


17356 


742010 




RTL 


17357 


057372 




DAC TEMPI 


17360 


517373 




AND SEVEN1 


17361 


257374 




XOR ASK I 1 1 


17362 


117702 




JMS TYPE1 


17363 


217177 




LAC TALLY1 


17364 


357047 




TAD ONE1 


17365 


057177 




DAC TALLY1 


17366 


741200 




SNA 


17367 


637347 




JMP» TYPOHI 


17370 


217372 




LAC TEMPI 


17371 


617355 




JMP .-14 


17372 


000000 


TEMPI 





17373 


000007 


SEVEN1 


7 


17374 


000260 


ASKI 11 


260 



OF THE AC IN OCTAL (HIGH) 
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/ERROR MFSSAGES (HIGH MEMO 


17375 


017376 


MESS11 .+1 




17376 


311323 


311323 


/I ,S 


17377 


332240 


332240 


/2,SP 


17400 


304311 


304311 


/D, I 


17401 


304240 


304240 


/D.SP 


17402 


316317 


316317 


/N,0 


17403 


324240 


324240 


/T.SP 


17404 


323313 


323313 


/S,K 


17405 


311320 


311320 


/I.P 


17406 


254240 


254240 


/, ,SP 


17407 


314317 


314317 


/L,0 


17410 


303240 


303240 


/C.SP 


17411 


377000 


377000 


/RO 


17412 


017413 


MESS21 .+1 




17413 


215212 


215212 


/CR.LF 


17414 


311323 


311323 


/I ,S 


17415 


332240 


332240 


/Z.SP 


17416 


301304 


301304 


/A,D 


17417 


304215 


304215 


/D,CR 


17420 


212212 


212212 


/LF,LF 


17421 


316325 


316325 


/N.U 


17422 


315302 


315302 


/M,B 


17423 


305322 


305322 


/E,R 


17424 


240301 


240301 


/SP, A 


17425 


324240 


324240 


/T,SP 


17426 


317322 


317322 


/O.R 


17427 


311307 


311307 


/I,G 


17430 


311316 


311316 


/I,N 


17431 


301314 


301314 


/A,L 


17432 


240240 


240240 


/SP SP 


17433 


302301 


302301 


/B, A 


17434 


304240 


304240 


/D.SP 


17435 


377000 


377000 


/RO 


17436 


017437 


MESS31 .+1 




17437 


240240 


240240 


/SP SP 


17440 


311323 


311323 


/I.S 


17441 


332240 


332240 


/Z.SP 


17442 


301324 


301324 


/A,T 


17443 


215212 


215212 


/CR,LF 


17444 


377000 


377000 


/RO 
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17445 
17446 
17447 
17450 
17451 
17452 
17453 
17454 
17455 
17456 
17457 
17460 
17461 
17462 
17463 
17464 
17465 
17466 
17467 



17470 
17471 
17472 
17473 
17474 
17475 
17476 
17477 
17500 
17501 
17502 
17503 
17504 
17505 
17506 
17507 
17510 
17511 
17512 
17513 
17514 
17515 



000000 

750004 
742010 
741100 
117276 
750004 
740010 
741100 
617464 
117304 
217375 
117657 
217046 
117347 
617304 
750004 
741100 
740040 
637445 



000000 
750004 
742010 
741100 
117276 
750004 
740010 
741100 
617526 
217412 
117657 
117304 
21753? 
057501 
217046 
117347 
760240 
117702 
117702 
11770? 
11770? 
11770? 



/ERROR REPORT! 
ERROR1 

LAS 



NG SUBROUTINE 1 (HIGH MEMORY) 



RTL 

SPA 

JMS BELLI 

LAS 

RAL 

SPA 

JMP 



■7 



JMS CRLF1 

LAC MESS11 

JMS TMESSl 

LAC PNTR1 

JMS TYPOHI 

JMP CRLF1 

LAS 

SPA 

XX 

JMP» ERRORl 



/BELL ON ERROR? 
/YES 



/PRINT ERRORS 
/NO 

CR-LF ' 



/YES, 
/TYPE OUT 



Si DID NOT SKIP, LOC' 



/TYPE OUT NUMBER OF LOCATION 
/CR-LF 

/HALT ON ERROR 

/YES 

/EXIT 



/ 

/ERROR MESSAGE REPORTING SUBROUTINE 
ERR0R3 

LAS 

RTL 

SPA 

JMS BELLI 



3 (HIGH MEMORY) 



/BELL ON ERROR 
/YES 



LAS 
RAL 
SPA 

JMP .+26 

LAC MESS21 

JMS TMESSl 

JMS CRLF1 

LAC C0NST4 

OAC .-4 

LAC PNTR1 

JMS TYPOHI 

LAW 240 

JMS TYPE1 

JMS TYPE1 

JMS TYPE1 

JMS TYPE1 

JMS TYPE1 



/PRINT ERRORS? 
/NO 

/TYPE OUT HEADER 



/TYPE OUT LOCATION OF NUMBER 
/5 SPACES 



ISZ-9 
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17516 

17517 

17520 

17521 

17522 

17523 

17524 

17525 

17526 

17527 

17530 

17531 

17532 

17533 



75000] 
117347 
760240 
117702 
117702 
2 3 7 4 6 
117347 
117304 
750004 
741100 
740040 
637470 
617506 
217412 





CLA !CMA 




JMS TYPOHI 




LAk 240 




JMS TYPE1 




JMS TYPE1 




LAO PNTRl 




JMS TYPOHI 




JMS CRLF1 




LAS 




SPA 




XX 




JMP* ERR0R3 


C0NST4 


JMP ERR0R3+16 


C0NST5 


LAC MESS21 



/TYPE OUT ORIGINAL NUMBER 



/TYPE BAD RESULT 
/CR-LF 



/HALT 

/YES 

/EXIT 



ON ERROR? 
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17534 


000000 


17535 


750004 


17536 


742010 


17537 


741100 


17540 


117276 


17541 


750004 


17542 


740010 


17543 


741100 


17544 


617577 


17545 


217412 


17546 


117657 


17547 


217436 


17550 


117657 


17551 


217651 


17552 


057545 


17553 


217116 


17554 


117347 


17555 


760240 


17556 


117702 


17557 


117702 


17560 


117702 


17561 


117702 


17562 


117702 


17563 


217117 


17564 


117347 


17565 


760240 


17566 


117702 


17567 


117702 


17570 


237116 


17571 


117347 


17572 


760240 


17573 


117702 


17574 


217115 


17575 


117347 


17576 


117304 


17577 


750004 


17600 


741100 


17601 


740040 


17602 


750004 


17603 


517645 


17604 


741200 


17605 


637534 



/ERROR REPORTING SUBROUTINE 


ERR0R5 




LAS 




RTL 




SPA 




JMS 


BELLI 


LAS 




RAL 




SPA 




JMP 


.+33 


LAC 


MESS21 


JMS 


TMESS1 


LAC 


MESS31 


JMS 


TMESS1 


LAC 


C0NST6 


DAC 


, -5 


LAC 


RAND2 


JMS 


TYPOHI 


LAW 


240 


JMS 


TYPE1 


JMS 


TYPE1 


JMS 


TYPE1 


JMS 


TYPE1 


JMS 


TYPE1 


LAC 


RAND3 


JMS 


TYPOHI 


LAW 


240 


JMS 


TYPE1 


JMS 


TYPE1 


LAC« 


■ RAND2 


JMS 


TYPOHI 


LAW 


240 


JMS 


TYPE1 


LAC 


RANOl 


JMS 


TYPOHI 


JMS 


CRLF1 


LAS 




SPA 




XX 




3ACK LAS 




AND 


MASK31 


SNA 




JMP» 


ERR0R5 



5 (HIGH MEMORY) 



/BELL ON ERROR 
/YES 



/PRINT ERRORS? 
/NO 

/TYPE HEADER 

/TYPE "ISZ AT" 

/TYPE LOCATION OF NUMBER 
/5 SPACES 



/TYPE ORIGINAL NUM8ER 



/TYPE BAD NUMBER 



/TYPE LOCATION OF IS? 



/HALT ON ERROR? 
/YES 



/SAVE ERROR CONDITIONS? 
/NO 



ISZ-9 
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ftft 



17606 


750004 


ISZLOC 


LAS 






17607 


517646 




AND 


MASK41 




17610 


741200 




SNA 




/VARY LOCATION OF ISZ? 


17611 


617616 




JMP 


. +5 


/NO 


17612 


117312 




JMS 


GETl 


/YES, GET ANOTHER ADDRESS 


17613 


117334 




JMS 


COMPAR 


/IS RAND1=RAND2 


17614 


617612 




JMP 


. -2 


/YES, TRY AGAIN 


17615 


617620 




JMP 


OPLOC 


/ALL OK, GO ON 


17616 


217112 




LAC 


SAVE1 


/TRANSFER C(SAVEl) 


17617 


057115 




DAC 


RAND1 


/TO RAND1 


17620 


750004 


OPLOC 


LAS 






17621 


517647 




AND 


MASK51 




17622 


741200 




SNA 




/VARY LOCATION OF OPERAND? 


17623 


617630 




JMP 


.+5 


/NO 


17624 


117323 




JMS 


GET2 


/YES, GET OP ADDRESS 


17625 


117334 




JMS 


COMPAR 


/IS RAN01=RAND2? 


17626 


617624 




JMP 


.-?. 


/YES, TRY AGAIN 


17627 


617632 




JMP 


OPNUM 


/ALL OK, GO ON 


17630 


217113 




LAC 


SAVE2 


/TRANSFER C(SAVE2) 


17631 


057116 




DAC 


RAMD2 


/TO RAN02 


17632 


750004 


OPNUM 


LAS 






17633 


517650 




AND 


MASK61 




17634 


741200 




SNA 




/VARY OPERAND? 


17635 


617640 




JMP 


.+3 


/NO 


17636 


117224 




JMS 


GEN3 


/YES 


17637 


617641 




JMP 


.+2 




17640 


217114 




LAC 


SAVE3 




17641 


057117 




DAC 


RAND3 




17642 


117123 


TRYDIF 


JMS 


ISZTST 


/PERFORM AND CHECK THE ISZ 


17643 


617535 




JMP 


ERR0R5+1 


/ERROR RETURNS HERE 


17644 


617602 




JMP 


BACK 


/NO ERROR RETURNS HERE 


17645 


010000 


MASK31 


10000 




17646 


004000 


MASK41 


400e 


1 




17647 


002000 


MASK51 


2000 


1 




17650 


001000 


MASK61 


1002 


1 




17651 


617553 


C0NST6 


JMP 


ERROR5+17 
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17652 
17653 
17654 
17655 
17656 



17657 
17660 
17661 
17662 
17663 
17664 
17665 
17666 
17667 
17670 
17671 
17672 
17673 
17674 
17675 
17676 
17677 
17700 
17701 
17702 
17703 
17704 
17705 
17706 
17707 
17710 



776527 
117144 
016440 
000100 
600100 



000000 
057200 
237200 
740020 
742020 
742020 
742020 
742020 
117702 
557710 
637657 
237200 
117702 
557710 
637657 
217200 
357047 
057200 
617661 
000000 
517710 
700406 
700401 
617705 
637702 
000377 
001251 
016440 
000000 
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/ROUTINE TO MOVE PROGRAM TO LOWER MEMORY AND START IS2HI 
MOVEDN LAW -A / GET REAOY TO 

JMS MOVE1 /MOVE A WORDS 

B /FROM HIGH TO 

ISZHI /LOW MEMORY 

JMP ISZHI /THEN TRANSFER CONTROL TO ISZHI 

/MESSAGE TYPEOUT SUBROUTINE (HIGH) 



TMESS1 







DAC POINT1 

LAC* POINT1 

RAR 

RTR 

RTR 

RTR 

RTR 

JMS TYPE1 

SAO RUBOT1 

JMP* TMESSl 

LAC* POINTl 

JMS TYPE1 

SAO RUROTl 

JMP* TMESSl 

LAC POINTl 

TAD ONE1 

DAC POINTl 

JMP TMESSl+2 
TYPE1 

AND RUROTl 

TLS 

TSF 

JMP .-1 

JMP* TYPE1 
RUBOT1 377 

A=RU80T2-IS2HI+1+RUB0T1-ISZL0W+1 
B=ISZLOW-RUBOT2+ISZHI-l 

.END 
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A 


001251 


ASK I 1 1 


17374 


ASKI 12 


00257 


8 


016440 


BACK 


17602 


BELLI 


17276 


8ELL2 


00216 


CNTR1 


17045 


CNTR2 


00151 


COMPAR 


17334 


CONST1 


17122 


C0NST2 


00406 


C0NST3 


00407 


CONST4 


17532 


C0NST5 


17533 


C0NST6 


17651 


CRLF1 


17304 


CRLF2 


00224 


ERROR1 


17445 


ERR0R2 


00321 


ERR0R3 


17470 


ERR0R4 


00344 


ERR0R5 


17534 


GEN1 


17202 


GEN2 


17213 


GEN3 


17224 


GETl 


17312 


GET2 


17323 


ISZCON 


17121 


ISZHI 


00100 


ISZLOC 


17606 


ISZLOW 


17000 


IS2TST 


17123 


LOOP1 


17155 


L00P2 


00171 


MASK11 


17050 


MASK12 


00154 


MASK21 


17051 


HASK22 


00155 


MASK31 


17645 


MASK41 


17646 


HASK51 


17647 


MASK61 


17650 


HESS11 


17375 


MESS12 


00260 


MESS21 


17412 


HESS22 


00275 


MESS31 


17436 


HOVEDN 


17652 


» V £ U P 


00144 


M V E 1 


17144 


MOVE? 


00160 


UNE1 


17047 
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0NE2 


00153 


OPLOC 


17620 


UPNUM 


17632 


PNTRl 


17046 


PNTR? 


00152 


POINT1 


17200 


P0INT2 


17201 


P0INT3 


00214 


P0INT4 


00215 


PROCFO 


17067 


H A IM D 1 


17115 


H A N D 2 


17116 


HANDS 


17117 


HAN I Si 


17052 


HUBOT1 


17710 


HUB0T2 


00437 


*1 


17211 


R2 


17222 


*3 


17252 


SAVEl 


17112 


SAVE? 


17113 


SAVES 


17114 


^EVENl 


17373 


SEVEN2 


00256 


STPT 


00156 


TALLY1 


17177 


TALLY2 


00213 


TEMPI 


17372 


TEMP? 


00255 


TMESS1 


17657 


TMESS2 


00410 


TRYQIF 


17642 


TYPE! 


17702 


TYPE2 


00431 


TYPOHI 


17347 


TYPOLO 


00232 


UPL IM1 


17044 


UPLIM2 


00157 


UPLIM3 


17120 
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IS2HI 


00100 


MOVEUP 


00144 


CNTR2 


00151 


PNTR? 


00152 


ONE2 


00153 


|N 1ASK12 


00154 


MASK22 


00155 


STHT 


00156 


UPLIM2 


00157 


MOVE? 


00160 


LOOP? 


00171 


TALLY2 


00213 


P0INT3 


00214 


POINT4 


00215 


rfELL2 


00216 


CRLF? 


00224 


TYPOLO 


00232 


TEMP? 


00255 


SEVEN2 


00256 


ASKI 12 


00257 


MESS12 


00260 


MESS22 


00275 


ERR0R2 


00321 


ERR0R4 


00344 


C0NST2 


00406 


C0NST3 


00407 


TMESS2 


00410 


TYPE? 


00431 


RUR0T2 


00437 


A 


001251 


8 


016440 


IS£LOW 


17000 


UPLIM1 


17044 


CNTR1 


17045 


PNTR! 


17046 


ONE1 


17047 


MASK11 


17050 


HASK21 


17051 


RANIS2 


17052 


PROCFD 


17067 


SAVE1 


17112 


SAVE? 


17113 


SAVE3 


17114 


RAND1 


17115 


RAND2 


17116 


RAND3 


17117 


UPLIM3 


17120 


ISZCON 


17121 


CONSTl 


17122 


IS2TST 


17123 


M V E 1 


17144 


LOOPi 


17155 


TALLY1 


17177 
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P0INT1 


17200 


P0INT2 


17201 


GEN1 


17202 


Rl 


17211 


GEN2 


17213 


R2 


17222 


GEN3 


17224 


R3 


17252 


8ELL1 


17276 


CRLF1 


17304 


GETl 


17312 


GET2 


17323 


COMPAR 


17334 


TYPOHI 


17347 


TEMPI 


17372 


SEVEN1 


17373 


ASKIU 


17374 


flESSll 


17375 


MESS21 


17412 


MESS31 


17436 


ERROR1 


17445 


ERR0R3 


17470 


CONST4 


17532 


C0NST5 


17533 


ERR0R5 


17534 


BACK 


17602 


ISZLOC 


17606 


OPLOC 


17620 


OPNUM 


17632 


TRYDIF 


17642 


HASK31 


17645 


MASK41 


17646 


MASK51 


17647 


MASK61 


17650 


C0NST6 


17651 


MOVEDN 


17652 


TMESS1 


17657 


TYPE1 


17702 


RUBOT1 


17710 



